home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / FLAGS.ZIP / REGISTER.AIL < prev    next >
Text File  |  1996-03-06  |  1KB  |  143 lines
  1. SHOW:Welcome=60
  2.  
  3. CLEAR:SCREEN
  4.  
  5. SHOW:Compute=0
  6. PICK:COMPUTE
  7. 9,18
  8. GR+/R,W+/B,0
  9. 16
  10. PICK:CPU
  11. 9,42
  12. GR+/R,W+/B,0
  13. 16
  14.  
  15. CLEAR:SCREEN
  16.  
  17. SHOW:Modem=0
  18. PICK:MODEM
  19. 5,34
  20. GR+/R,W+/B,0
  21. 14
  22.  
  23. CLEAR:SCREEN
  24.  
  25. SHOW:HS=0
  26. YESNO:
  27. 13,20
  28. W+/B,GR+/R,0
  29. Yes/No
  30.  
  31. CLEAR:SCREEN
  32.  
  33. REM:If a high school student ...
  34. IF:YSN+
  35. SHOW:HSCHOOL=0
  36. PICK:HSCHOOL
  37. 5,36
  38. GR+/R,W+/B,0
  39. 12
  40.  
  41. ELSE:
  42. REM:If NOT high school student ...
  43.  
  44. SHOW:Coll=0
  45. YESNO:
  46. 13,20
  47. W+/B,GR+/R,0
  48. Yes/No
  49.  
  50. CLEAR:SCREEN
  51.  
  52. IF:YSN+
  53. REM:If a college student ...
  54. SHOW:College=0
  55. PICK:COLLEGE
  56. 5,36
  57. GR+/R,W+/B,0
  58. 12
  59.  
  60. ELSE:
  61. REM:If NOT a college student (assume working stiff)
  62. SHOW:Job=0
  63. PICK:JOB
  64. 5,34
  65. GR+/R,W+/B,0
  66. 17
  67.  
  68. ENDIF:
  69. ENDIF:
  70.  
  71. CLEAR:SCREEN
  72.  
  73. SHOW:Serv=0
  74. YESNO:
  75. 13,20
  76. W+/B,GR+/R,0
  77. Yes/No
  78.  
  79. CLEAR:SCREEN
  80.  
  81. IF:YSN+
  82.  
  83. SHOW:Service=0
  84. CHECK:1
  85. 4,38
  86. N/R,GR+/R,0
  87. 25=Jaycees
  88. 26=Junior Woman's Club
  89. 27=Lion's Club
  90. 28=Kiwanis
  91. 29=Masons
  92. 30=Rotary
  93. 31=Ruritan
  94. 32=Woman's Club
  95.  
  96. CLEAR:SCREEN
  97.  
  98. ELSE:
  99. ENDIF:
  100.  
  101. SHOW:Interest=0
  102. PICK:INTEREST
  103. 5,36
  104. GR+/R,W+/B,0
  105. 15
  106.  
  107. CLEAR:SCREEN
  108.  
  109. SHOW:Sex=0
  110. PICK:SEX
  111. 8,43
  112. GR+/R,W+/B,0
  113. 13
  114.  
  115. CLEAR:SCREEN
  116.  
  117. SHOW:Visible=0
  118. YESNO:
  119. 13,20
  120. W+/B,GR+/R,0
  121. Visible/Invisible
  122.  
  123. IF:YSN+
  124. +:VIS
  125. ELSE:
  126. ENDIF:
  127.  
  128. CLEAR:SCREEN
  129.  
  130. SHOW:DOB=0
  131. DATE:
  132. 10,24
  133. GR+/R,N/R,0
  134. D.O.B.=Please enter your birthdate:
  135.  
  136. CLEAR:SCREEN
  137.  
  138. SHOW:Thanks=60
  139.  
  140. A:11=X
  141.  
  142. QUIT:
  143.